home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / raytrace / pov / gen / form04a / shapes / moreweb6.frm < prev    next >
Text File  |  1993-11-10  |  785b  |  24 lines
  1. s1 = sphere 5 stack 30 in 10 bend 60;
  2. s2 = sphere 5 stack 30 in 15 bend -120;
  3. s3 = sphere 5 stack 30 in 10 bend 100 twist 60;
  4. ss = sphere 0.1;
  5. s4 = sphere 0.1, sphere 0.1 , sphere 0.1 delete 2 stack 30 in 15;
  6. spoke1 = ellipse <0.5, 0.2, 2> stack 50 in 15 twist 2*360, 0.5 bend 45;
  7. spoke2 = sphere 0.1 stack 50 in 10% bend 120;
  8. spoke3 = sphere stack 100 in 10% bend 2*360 twist 2*180;
  9. //     knot shape
  10. knot=s2,s2,s2,s2;
  11.  
  12. // seven examples of a web
  13. // the file currently displays just the first one
  14. first=ss web 5 with s1 2 hole 2;
  15. second=ss web 5 with s3 4 hole 1.5;
  16. third=s1 web 5 with s3 4 ;
  17. fourth=ss web 5 with knot 1 hole 2;
  18. fifth=knot web 6 with s4 1 hole 2;
  19. sixth = spoke2 web 5 with spoke3 1 hole 1.5;
  20. seventh = spoke1 web 5 with spoke2 1 ;
  21.  
  22. sixth;
  23. end;
  24.